inherited FCadastroProdutos: TFCadastroProdutos
  Left = 210
  Top = 175
  Caption = 'Cadastro Produtos'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  object Label17: TLabel [0]
    Left = 375
    Top = 129
    Width = 116
    Height = 16
    Caption = 'Classifica'#231#227'o Fiscal'
  end
  inherited pcCadastro: TPageControl
    ActivePage = TsCadastro
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'PROD_CODIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PROD_DESCRICAOENT'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PROD_DESCRICAOSAI'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PROD_REFERENCIA'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PROD_UNIDSAIDA'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PROF_REF_FABRICANTE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PROD_LOCALIZACAO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PROD_CODIGO_ANT'
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          inherited BtnFechar: TBitBtn
            Left = 540
          end
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          inherited BtnConsuta: TBitBtn
            OnClick = BtnConsutaClick
          end
        end
        object PageControl1: TPageControl
          Left = 1
          Top = 36
          Width = 842
          Height = 389
          ActivePage = TSProduto
          Align = alClient
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnChange = PageControl1Change
          object TSProduto: TTabSheet
            Caption = 'Identifica'#231#227'o'
            object Label1: TLabel
              Left = 3
              Top = 1
              Width = 40
              Height = 16
              Caption = 'C'#243'digo'
            end
            object Label2: TLabel
              Left = 61
              Top = 1
              Width = 107
              Height = 16
              Caption = 'Descri'#231#227'o Entrada'
              FocusControl = DBEDescricaoEntrada
            end
            object Label3: TLabel
              Left = 653
              Top = 4
              Width = 92
              Height = 16
              Caption = 'Ref. Fornecedor'
              FocusControl = DBERefFornecedor
            end
            object Label4: TLabel
              Left = 750
              Top = 83
              Width = 60
              Height = 16
              Caption = 'Uni. Sa'#237'da'
              FocusControl = edUniArmaenamento
            end
            object Label6: TLabel
              Left = 3
              Top = 166
              Width = 102
              Height = 16
              Caption = 'Grupo do Produto'
            end
            object Label12: TLabel
              Left = 61
              Top = 44
              Width = 95
              Height = 16
              Caption = 'Descri'#231#227'o Saida'
              FocusControl = DBEDescricaoSaida
            end
            object DBText3: TDBText
              Left = 167
              Top = 166
              Width = 50
              Height = 16
              AutoSize = True
              DataField = 'PLANOCONT_CODIGOCONTABIL'
              DataSource = DSPlanoContabil
            end
            object Label8: TLabel
              Left = 653
              Top = 45
              Width = 88
              Height = 16
              Caption = 'Ref. Fabricante'
              FocusControl = edRefFabricante
            end
            object Label9: TLabel
              Left = 308
              Top = 83
              Width = 36
              Height = 16
              Caption = 'Marca'
              FocusControl = edMarca
            end
            object Label10: TLabel
              Left = 654
              Top = 83
              Width = 69
              Height = 16
              Caption = 'Localiza'#231#227'o'
              FocusControl = edLocalizacao
            end
            object Label34: TLabel
              Left = 3
              Top = 83
              Width = 61
              Height = 16
              Caption = 'Fabricante'
              FocusControl = edMarca
            end
            object Label53: TLabel
              Left = 309
              Top = 125
              Width = 171
              Height = 16
              Caption = 'Classifica'#231#227'o do Produto (F8)'
            end
            object Label13: TLabel
              Left = 3
              Top = 45
              Width = 51
              Height = 16
              Caption = 'C'#243'd. Ant'
            end
            object Label16: TLabel
              Left = 542
              Top = 83
              Width = 70
              Height = 16
              Caption = 'Gr. Etiqueta'
              FocusControl = edMarca
            end
            object Label21: TLabel
              Left = 3
              Top = 315
              Width = 121
              Height = 16
              Caption = 'Atividade Econ'#244'mica'
              FocusControl = edMarca
            end
            object Label18: TLabel
              Left = 2
              Top = 125
              Width = 73
              Height = 16
              Caption = 'C'#243'digo GTIN'
              FocusControl = edMarca
            end
            object DBEDescricaoEntrada: TDBEdit
              Left = 61
              Top = 20
              Width = 583
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'PROD_DESCRICAOENT'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 1
            end
            object DBERefFornecedor: TDBEdit
              Left = 653
              Top = 20
              Width = 158
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'PROD_REFERENCIA'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 4
            end
            object edUniArmaenamento: TDBEdit
              Left = 750
              Top = 100
              Width = 62
              Height = 22
              Ctl3D = False
              DataField = 'PROD_UNIDSAIDA'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 10
            end
            object DBEDescricaoSaida: TDBEdit
              Left = 61
              Top = 60
              Width = 584
              Height = 22
              CharCase = ecUpperCase
              Color = clWhite
              Ctl3D = False
              DataField = 'PROD_DESCRICAOSAI'
              DataSource = dsCadastro
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 3
              OnEnter = DBEDescricaoSaidaEnter
            end
            object DBLCBGrupoProduto: TDBLookupComboBox
              Left = 3
              Top = 182
              Width = 300
              Height = 22
              Ctl3D = False
              DataField = 'PROD_GRUPOPRODUTO'
              DataSource = dsCadastro
              KeyField = 'GRUP_PROD_CODIGO'
              ListField = 'GRUP_PROD_DESCRICAO'
              ListSource = DSGrupoProduto
              ParentCtl3D = False
              TabOrder = 11
              OnKeyDown = DBLCBGrupoProdutoKeyDown
            end
            object edRefFabricante: TDBEdit
              Left = 653
              Top = 61
              Width = 158
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'PROF_REF_FABRICANTE'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 5
            end
            object edMarca: TDBEdit
              Left = 308
              Top = 100
              Width = 229
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'PROD_MARCA'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 7
            end
            object edLocalizacao: TDBEdit
              Left = 654
              Top = 100
              Width = 90
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'PROD_LOCALIZACAO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 9
            end
            object dblFabricante: TDBLookupComboBox
              Left = 2
              Top = 100
              Width = 300
              Height = 22
              Ctl3D = False
              DataField = 'PROD_FABRICANTE'
              DataSource = dsCadastro
              KeyField = 'FABRI_CODIGO'
              ListField = 'FABRI_DESCRICAO'
              ListSource = dsFabricante
              ParentCtl3D = False
              TabOrder = 6
              OnKeyDown = DBLCBGrupoProdutoKeyDown
            end
            object gbAplicacao: TGroupBox
              Left = 3
              Top = 206
              Width = 644
              Height = 110
              Caption = '  Observa'#231#227'o / Aplica'#231#227'o  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 15
              object MComplemento: TMemo
                Left = 7
                Top = 19
                Width = 627
                Height = 82
                TabOrder = 5
              end
              object DBEComplemento1: TDBEdit
                Left = 11
                Top = 22
                Width = 620
                Height = 14
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'PROD_DESCRICAO_COMPLEMENTO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 0
              end
              object DBEComplemento2: TDBEdit
                Left = 11
                Top = 37
                Width = 620
                Height = 13
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'PROD_DESCRICAO_COMPLEMENTO2'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 1
              end
              object DBEComplemento3: TDBEdit
                Left = 11
                Top = 52
                Width = 620
                Height = 13
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'PROD_DESCRICAO_COMPLEMENTO3'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 2
              end
              object DBEComplemento4: TDBEdit
                Left = 11
                Top = 66
                Width = 620
                Height = 14
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'PROD_DESCRICAO_COMPLEMENTO4'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 3
              end
              object DBEComplemento5: TDBEdit
                Left = 11
                Top = 81
                Width = 620
                Height = 14
                BorderStyle = bsNone
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'PROD_DESCRICAO_COMPLEMENTO5'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 4
              end
            end
            object edCodigo: TDBEdit
              Left = 3
              Top = 20
              Width = 52
              Height = 22
              TabStop = False
              AutoSize = False
              Ctl3D = False
              DataField = 'PROD_CODIGO'
              DataSource = dsCadastro
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 0
            end
            object dblClassProduto: TDBLookupComboBox
              Left = 309
              Top = 141
              Width = 338
              Height = 22
              Ctl3D = False
              DataField = 'PROD_CLASSIFPROD1'
              DataSource = dsCadastro
              KeyField = 'CLASS_PROD_CODIGO'
              ListField = 'CLASS_PROD_DESCRICAO'
              ListSource = dsClassProduto
              ParentCtl3D = False
              TabOrder = 12
              OnKeyDown = dblClassProdutoKeyDown
            end
            object DBRadioGroup2: TDBRadioGroup
              Left = 656
              Top = 189
              Width = 169
              Height = 55
              Caption = '  Origem  '
              Ctl3D = False
              DataField = 'PROD_NOVO_RECUPERADO'
              DataSource = dsCadastro
              Items.Strings = (
                'Novo'
                'Recuperado')
              ParentCtl3D = False
              TabOrder = 14
              Values.Strings = (
                'N'
                'R')
            end
            object rgAtivoInativo: TDBRadioGroup
              Left = 656
              Top = 133
              Width = 169
              Height = 55
              Caption = '  Situa'#231#227'o  '
              Ctl3D = False
              DataField = 'PROD_ATIVO'
              DataSource = dsCadastro
              Items.Strings = (
                'Ativo'
                'Inativo')
              ParentCtl3D = False
              TabOrder = 13
              Values.Strings = (
                'S'
                'N')
            end
            object edCodAnt: TDBEdit
              Left = 3
              Top = 60
              Width = 52
              Height = 22
              TabStop = False
              AutoSize = False
              Ctl3D = False
              DataField = 'PROD_CODIGO_ANT'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 2
            end
            object edGrupoEtiqueta: TDBEdit
              Left = 542
              Top = 100
              Width = 27
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'PROD_GRUPO_ETIQUETA'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 8
            end
            object dblAtividadeEconomica: TDBLookupComboBox
              Left = 2
              Top = 331
              Width = 647
              Height = 22
              Ctl3D = False
              DataField = 'PROD_ATIVIDADE_ECONOMICA'
              DataSource = dsCadastro
              KeyField = 'AE_CODIGO'
              ListField = 'AE_DESCRICAO'
              ListSource = dsAtividadeEconomica
              ParentCtl3D = False
              TabOrder = 16
              OnKeyDown = dblAtividadeEconomicaKeyDown
            end
            object DBEdit1: TDBEdit
              Left = 2
              Top = 141
              Width = 300
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'PROD_COD_GTIN'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 17
            end
            object DBRadioGroup4: TDBRadioGroup
              Left = 656
              Top = 249
              Width = 169
              Height = 55
              Caption = '  Status Produto  '
              Ctl3D = False
              DataField = 'PROD_STATUS_BLOQUEIO'
              DataSource = dsCadastro
              Items.Strings = (
                'Bloqueado'
                'Liberado')
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 18
              Values.Strings = (
                '0'
                '1')
            end
          end
          object tsIndicacoes: TTabSheet
            Caption = 'Indica'#231#245'es'
            ImageIndex = 6
            object rg2: TDBRadioGroup
              Left = 152
              Top = 16
              Width = 201
              Height = 68
              Caption = '  Controle Manuten'#231#227'o  '
              Columns = 2
              Ctl3D = False
              DataField = 'PROD_CONTROLE_MANUTENCAO'
              DataSource = dsCadastro
              Items.Strings = (
                'Componente'
                'Pneu'
                'Outros')
              ParentCtl3D = False
              TabOrder = 1
              Values.Strings = (
                'C'
                'P'
                'O')
            end
            object rg4: TDBRadioGroup
              Left = 511
              Top = 16
              Width = 194
              Height = 68
              Caption = '  Natureza  '
              Columns = 2
              Ctl3D = False
              DataField = 'PROD_USO_CONSUMO'
              DataSource = dsCadastro
              Items.Strings = (
                'Uso'
                'Consumo'
                'Ap. Direta'
                'Servi'#231'o')
              ParentCtl3D = False
              TabOrder = 3
              Values.Strings = (
                'U'
                'C'
                'D'
                'S')
            end
            object rg7: TDBRadioGroup
              Left = 303
              Top = 90
              Width = 194
              Height = 68
              Caption = '  Re-Suprimento  '
              Columns = 2
              Ctl3D = False
              DataField = 'PROD_RESUPRIMENTO'
              DataSource = dsCadastro
              Items.Strings = (
                'Autom'#225'tico'
                'Solicitado')
              ParentCtl3D = False
              TabOrder = 6
              Values.Strings = (
                'A'
                'S')
            end
            object rg8: TGroupBox
              Left = 1
              Top = 165
              Width = 344
              Height = 80
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 7
              object Label41: TLabel
                Left = 120
                Top = 17
                Width = 21
                Height = 16
                Caption = 'Qtd'
              end
              object Label42: TLabel
                Left = 184
                Top = 17
                Width = 27
                Height = 16
                Caption = 'Data'
              end
              object Label45: TLabel
                Left = 288
                Top = 16
                Width = 34
                Height = 16
                Caption = 'Prazo'
              end
              object edQtdPPedido: TDBEdit
                Left = 120
                Top = 33
                Width = 60
                Height = 22
                DataField = 'PROD_QTD_PPEDIDO'
                DataSource = dsCadastro
                TabOrder = 1
              end
              object rgpPedido: TDBRadioGroup
                Left = 0
                Top = 0
                Width = 115
                Height = 80
                Caption = '  Ponto Pedido  '
                DataField = 'PROD_PPEDIDO'
                DataSource = dsCadastro
                Items.Strings = (
                  'Calculado'
                  'Informado')
                TabOrder = 0
                Values.Strings = (
                  'C'
                  'I')
                OnChange = rgpPedidoChange
              end
              object edPrazoEntrega: TDBEdit
                Left = 290
                Top = 33
                Width = 40
                Height = 22
                Ctl3D = False
                DataField = 'PROD_PRAZO_ENTREGA'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 2
              end
              object edDataPPedido: TDBDateEdit
                Left = 184
                Top = 33
                Width = 101
                Height = 22
                DataField = 'PROD_DT_PPEDIDO'
                DataSource = dsCadastro
                NumGlyphs = 2
                TabOrder = 3
              end
            end
            object rg1: TDBRadioGroup
              Left = 1
              Top = 16
              Width = 144
              Height = 68
              Caption = 'Relacionado C. Custo'
              Columns = 2
              Ctl3D = False
              DataField = 'PROD_IND_CENTROCUSTO'
              DataSource = dsCadastro
              Items.Strings = (
                'Sim'
                'N'#227'o')
              ParentCtl3D = False
              TabOrder = 0
              Values.Strings = (
                'S'
                'N')
            end
            object rg3: TDBRadioGroup
              Left = 361
              Top = 16
              Width = 144
              Height = 68
              Caption = 'Comp'#245'e KIT '
              Columns = 2
              Ctl3D = False
              DataField = 'PROD_KIT'
              DataSource = dsCadastro
              Items.Strings = (
                'Sim'
                'N'#227'o')
              ParentCtl3D = False
              TabOrder = 2
              Values.Strings = (
                'S'
                'N')
            end
            object rg5: TDBRadioGroup
              Left = 1
              Top = 90
              Width = 144
              Height = 68
              Caption = 'Mercado na Rede'
              Columns = 2
              Ctl3D = False
              DataField = 'PROD_MERCADO_NR'
              DataSource = dsCadastro
              Items.Strings = (
                'Sim'
                'N'#227'o')
              ParentCtl3D = False
              TabOrder = 4
              Values.Strings = (
                'S'
                'N')
            end
            object rg6: TDBRadioGroup
              Left = 153
              Top = 90
              Width = 144
              Height = 68
              Caption = 'Perec'#237'vel'
              Columns = 2
              Ctl3D = False
              DataField = 'PROD_PERECIVEL'
              DataSource = dsCadastro
              Items.Strings = (
                'Sim'
                'N'#227'o')
              ParentCtl3D = False
              TabOrder = 5
              Values.Strings = (
                'S'
                'N')
            end
            object rg9: TGroupBox
              Left = 352
              Top = 165
              Width = 209
              Height = 80
              Caption = ' Peso '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 8
              object Label62: TLabel
                Left = 7
                Top = 16
                Width = 31
                Height = 16
                Caption = 'Bruto'
              end
              object Label63: TLabel
                Left = 103
                Top = 16
                Width = 41
                Height = 16
                Caption = 'L'#237'quido'
              end
              object RxDBCPesoBrutoTotal: TRxDBCalcEdit
                Left = 7
                Top = 33
                Width = 90
                Height = 22
                DataField = 'PROD_PESO_BRUTO'
                DataSource = dsCadastro
                Ctl3D = False
                DecimalPlaces = 4
                DisplayFormat = '0.,0000'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 0
              end
              object RxDBCPesoLiquidoTotal: TRxDBCalcEdit
                Left = 103
                Top = 33
                Width = 90
                Height = 22
                DataField = 'PROD_PESO_LIQUIDO'
                DataSource = dsCadastro
                Ctl3D = False
                DecimalPlaces = 4
                DisplayFormat = '0.,0000'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 1
              end
            end
            object DBRadioGroup1: TDBRadioGroup
              Left = 510
              Top = 89
              Width = 194
              Height = 68
              Caption = '  Participar da Curva ABC  '
              Columns = 2
              Ctl3D = False
              DataField = 'PROD_CURVAABC'
              DataSource = dsCadastro
              Items.Strings = (
                'Sim'
                'N'#227'o')
              ParentCtl3D = False
              TabOrder = 9
              Values.Strings = (
                'S'
                'N')
            end
            object DBRadioGroup3: TDBRadioGroup
              Left = 566
              Top = 165
              Width = 171
              Height = 80
              Caption = '  Auto-Pe'#231'as  '
              Columns = 2
              Ctl3D = False
              DataField = 'PROD_INDIC_AUTOPECAS'
              DataSource = dsCadastro
              Items.Strings = (
                'Sim'
                'N'#227'o')
              ParentCtl3D = False
              TabOrder = 10
              Values.Strings = (
                '1'
                '0')
            end
          end
          object TabSheet1: TTabSheet
            Caption = 'Fornecedores'
            ImageIndex = 2
            OnShow = TabSheet1Show
            object Label5: TLabel
              Left = 0
              Top = 3
              Width = 164
              Height = 16
              Caption = 'Fornecedor Preferencial (F8)'
            end
            object Label36: TLabel
              Left = 0
              Top = 51
              Width = 100
              Height = 16
              Caption = 'Ultimas Compras'
            end
            object DBLFornecedor: TDBLookupComboBox
              Left = 0
              Top = 23
              Width = 474
              Height = 22
              Ctl3D = False
              DataField = 'PROD_FORNECEDOR_PREF'
              DataSource = dsCadastro
              KeyField = 'FORN_CODIGO'
              ListField = 'FORN_RAZAO'
              ListSource = DSFornecedor
              ParentCtl3D = False
              TabOrder = 0
              OnKeyDown = DBLFornecedorKeyDown
            end
            object DBGItens: TDBGrid
              Left = 0
              Top = 75
              Width = 834
              Height = 283
              Align = alBottom
              Ctl3D = False
              DataSource = DSProdutoFornecedor
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
              ParentCtl3D = False
              ParentFont = False
              TabOrder = 1
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'FORN_RAZAO'
                  Title.Caption = 'Fornecedor'
                  Width = 431
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRODFORN_NF'
                  Title.Caption = 'NF'
                  Width = 60
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRODFORN_NF_DATA'
                  Title.Caption = 'Data NF'
                  Width = 80
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRODFORN_QTD'
                  Title.Caption = 'Quantidade'
                  Width = 87
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRODFORN_VALOR_UNITARIO'
                  Title.Alignment = taRightJustify
                  Title.Caption = 'Valor Unit'#225'rio'
                  Width = 104
                  Visible = True
                end>
            end
          end
          object TabSheet2: TTabSheet
            Caption = 'Clientes'
            ImageIndex = 3
            object DBGrid3: TDBGrid
              Left = 0
              Top = 1
              Width = 834
              Height = 357
              Align = alBottom
              Ctl3D = False
              DataSource = DSProdutoCliente
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 0
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              OnCellClick = DBGrid3CellClick
              OnKeyDown = DBGrid3KeyDown
              Columns = <
                item
                  Expanded = False
                  FieldName = 'CLIENTE'
                  Title.Caption = 'Cliente'
                  Width = 320
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'PRODCLI_REFERENCIA'
                  Title.Caption = 'Refer'#234'ncia'
                  Width = 121
                  Visible = True
                end>
            end
          end
          object tsVendas: TTabSheet
            Caption = 'Vendas'
            ImageIndex = 6
            object GroupBox4: TGroupBox
              Left = 172
              Top = 8
              Width = 131
              Height = 82
              Caption = '  C'#243'digo da Venda  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 1
              object Label20: TLabel
                Left = 11
                Top = 33
                Width = 59
                Height = 16
                Caption = '% C'#225'lculo'
              end
              object EDcv: TRxDBCalcEdit
                Left = 75
                Top = 31
                Width = 35
                Height = 22
                DataField = 'PROD_CV'
                DataSource = dsCadastro
                Ctl3D = False
                ButtonWidth = 0
                MaxLength = 3
                MaxValue = 100.000000000000000000
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 0
              end
            end
            object GroupBox6: TGroupBox
              Left = 8
              Top = 8
              Width = 153
              Height = 82
              Caption = '  Comiss'#227'o Vendedor  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              object Label11: TLabel
                Left = 10
                Top = 31
                Width = 74
                Height = 16
                Caption = '% Comiss'#227'o'
              end
              object edComissao: TRxDBCalcEdit
                Left = 90
                Top = 31
                Width = 56
                Height = 23
                DataField = 'PROD_COMISSAO_VEND'
                DataSource = dsCadastro
                Ctl3D = False
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 0
              end
            end
          end
          object TSTributos: TTabSheet
            Caption = 'Impostos'
            ImageIndex = 4
            object GBICMS: TGroupBox
              Left = 0
              Top = 0
              Width = 201
              Height = 119
              Caption = '  ICMS  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              object Label25: TLabel
                Left = 11
                Top = 54
                Width = 59
                Height = 16
                Caption = '% C'#225'lculo'
              end
              object Label26: TLabel
                Left = 11
                Top = 25
                Width = 85
                Height = 16
                Caption = 'Redu'#231#227'o Base'
              end
              object DBChBICMS: TDBCheckBox
                Left = 5
                Top = 82
                Width = 193
                Height = 21
                Caption = 'Cr'#233'd. Estoque C. M'#233'dio'
                DataField = 'PROD_ICMS'
                DataSource = dsCadastro
                TabOrder = 0
                ValueChecked = 'True'
                ValueUnchecked = 'False'
              end
              object RxDBPercICMS: TRxDBCalcEdit
                Left = 110
                Top = 53
                Width = 77
                Height = 23
                DataField = 'PROD_ALIQUOTA_ICMS'
                DataSource = dsCadastro
                Ctl3D = False
                DisplayFormat = '0.,00'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 2
              end
              object RxDBReducaoBaseICMS: TRxDBCalcEdit
                Left = 110
                Top = 23
                Width = 77
                Height = 24
                DataField = 'PROD_REDUCAO_BASE_ICMS'
                DataSource = dsCadastro
                Ctl3D = False
                DisplayFormat = '0.,00'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 1
              end
            end
            object GBICMSSubs: TGroupBox
              Left = 204
              Top = 0
              Width = 205
              Height = 119
              Caption = '  ICMS Substituto  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 1
              object Label30: TLabel
                Left = 11
                Top = 54
                Width = 59
                Height = 16
                Caption = '% C'#225'lculo'
              end
              object Label31: TLabel
                Left = 11
                Top = 25
                Width = 59
                Height = 16
                Caption = 'Agregador'
              end
              object RxDBPercCalculoICMSSubs: TRxDBCalcEdit
                Left = 85
                Top = 53
                Width = 77
                Height = 23
                DataField = 'PROD_SUBS_TRIBUTARIA'
                DataSource = dsCadastro
                Ctl3D = False
                DisplayFormat = '0.,00'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 1
              end
              object RxDBPercAgregadorICMSSubs: TRxDBCalcEdit
                Left = 85
                Top = 23
                Width = 77
                Height = 24
                DataField = 'PROD_PERC_AGREGACAO_ICMS_SUB'
                DataSource = dsCadastro
                Ctl3D = False
                DisplayFormat = '0.,00'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 0
              end
              object DBCBCreditoICMSSubs: TDBCheckBox
                Left = 7
                Top = 82
                Width = 162
                Height = 21
                Caption = 'Cr'#233'd. Estoque C. M'#233'dio'
                DataField = 'PROD_ICMS_SUBS'
                DataSource = dsCadastro
                TabOrder = 2
                ValueChecked = 'True'
                ValueUnchecked = 'False'
              end
            end
            object GBIPI: TGroupBox
              Left = 412
              Top = 0
              Width = 201
              Height = 119
              Caption = '  IPI  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 2
              object Label23: TLabel
                Left = 11
                Top = 54
                Width = 59
                Height = 16
                Caption = '% C'#225'lculo'
              end
              object Label28: TLabel
                Left = 11
                Top = 25
                Width = 85
                Height = 16
                Caption = 'Redu'#231#227'o Base'
              end
              object DBChBIPI: TDBCheckBox
                Left = 5
                Top = 82
                Width = 193
                Height = 21
                Caption = 'Cr'#233'd. Estoque C. M'#233'dio'
                DataField = 'PROD_IPI'
                DataSource = dsCadastro
                TabOrder = 2
                ValueChecked = 'True'
                ValueUnchecked = 'False'
              end
              object RxDBReducaoBaseIPI: TRxDBCalcEdit
                Left = 110
                Top = 23
                Width = 77
                Height = 24
                DataField = 'PROD_REDUCAO_BASE_IPI'
                DataSource = dsCadastro
                Ctl3D = False
                DisplayFormat = '0.,00'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 0
              end
              object RxDBAliquotaIPI: TRxDBCalcEdit
                Left = 110
                Top = 53
                Width = 77
                Height = 23
                DataField = 'PROD_ALIQUOTA_IPI'
                DataSource = dsCadastro
                Ctl3D = False
                DisplayFormat = '0.,00'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 1
              end
            end
            object GBPIS: TGroupBox
              Left = 0
              Top = 120
              Width = 201
              Height = 82
              Caption = '  PIS '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 3
              object Label29: TLabel
                Left = 11
                Top = 25
                Width = 59
                Height = 16
                Caption = '% C'#225'lculo'
              end
              object DBCBCreditarPIS: TDBCheckBox
                Left = 11
                Top = 53
                Width = 132
                Height = 21
                Caption = 'Creditar Imposto'
                DataField = 'PROD_CREDITAR_PIS'
                DataSource = dsCadastro
                TabOrder = 1
                ValueChecked = '1'
                ValueUnchecked = '0'
              end
              object RxDBCalcPIS: TRxDBCalcEdit
                Left = 74
                Top = 23
                Width = 77
                Height = 24
                DataField = 'PROD_PERC_PIS'
                DataSource = dsCadastro
                Ctl3D = False
                DisplayFormat = '0.,00'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 0
              end
            end
            object GBCOFINS: TGroupBox
              Left = 204
              Top = 120
              Width = 205
              Height = 82
              Caption = '  COFINS  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 4
              object Label32: TLabel
                Left = 11
                Top = 25
                Width = 59
                Height = 16
                Caption = '% C'#225'lculo'
              end
              object DBCBCreditarCOFINS: TDBCheckBox
                Left = 11
                Top = 53
                Width = 132
                Height = 21
                Caption = 'Creditar Imposto'
                DataField = 'PROD_CREDITAR_COFINS'
                DataSource = dsCadastro
                TabOrder = 1
                ValueChecked = '1'
                ValueUnchecked = '0'
              end
              object RxDBCalcCOFINS: TRxDBCalcEdit
                Left = 74
                Top = 23
                Width = 77
                Height = 24
                DataField = 'PROD_PERC_COFINS'
                DataSource = dsCadastro
                Ctl3D = False
                DisplayFormat = '0.,00'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 0
              end
            end
            object DBCheckBox1: TDBCheckBox
              Left = 3
              Top = 281
              Width = 190
              Height = 21
              Caption = 'N'#227'o usar redu'#231#227'o de ICMS'
              DataField = 'PROD_USA_REDUCAO_ICMS'
              DataSource = dsCadastro
              TabOrder = 5
              ValueChecked = 'N'
              ValueUnchecked = 'S'
              Visible = False
            end
            object GroupBox5: TGroupBox
              Left = 0
              Top = 205
              Width = 277
              Height = 73
              Caption = '  N'#227'o Considerar tipo de opera'#231#227'o na sa'#237'da  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 6
              object DBCBConsiderarTipoOperacaoNFSaida: TDBCheckBox
                Left = 11
                Top = 21
                Width = 150
                Height = 21
                Caption = 'Todas as indica'#231#245'es'
                DataField = 'PROD_CONSIDERAR_TOPERACAO_NFSAI'
                DataSource = dsCadastro
                TabOrder = 0
                ValueChecked = '1'
                ValueUnchecked = '0'
              end
              object DBCheckBox2: TDBCheckBox
                Left = 11
                Top = 45
                Width = 150
                Height = 21
                Caption = 'Redu'#231#227'o de ICMS'
                DataField = 'PROD_SEM_RED_ICMS'
                DataSource = dsCadastro
                TabOrder = 1
                ValueChecked = 'S'
                ValueUnchecked = 'N'
              end
            end
          end
          object TabContabil: TTabSheet
            Caption = 'Fiscal / Contabil'
            ImageIndex = 4
            object GroupBox2: TGroupBox
              Left = 2
              Top = 160
              Width = 829
              Height = 145
              Caption = '  Conta Contabil  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 1
              object Label14: TLabel
                Left = 14
                Top = 23
                Width = 75
                Height = 16
                Caption = 'Estoque (F8)'
              end
              object Label7: TLabel
                Left = 421
                Top = 24
                Width = 71
                Height = 16
                Caption = 'Receita (F8)'
              end
              object Label22: TLabel
                Left = 422
                Top = 82
                Width = 86
                Height = 16
                Caption = 'Devolu'#231#227'o (F8)'
              end
              object Label40: TLabel
                Left = 14
                Top = 82
                Width = 120
                Height = 16
                Caption = 'Custo/Consumo (F8)'
              end
              object DBLCBContaContabil: TDBLookupComboBox
                Left = 14
                Top = 42
                Width = 400
                Height = 22
                Ctl3D = False
                DataField = 'PROD_CONTACONTABIL'
                DataSource = dsCadastro
                KeyField = 'PLANOCONT_CODIGO'
                ListField = 'codigo_descricao'
                ListSource = DSPlanoContabil
                ParentCtl3D = False
                TabOrder = 0
                OnClick = DBLCBContaContabilClick
                OnKeyDown = DBLCBFornecedorKeyDown
              end
              object DBLCBContaContabilReceita: TDBLookupComboBox
                Left = 422
                Top = 42
                Width = 400
                Height = 22
                Ctl3D = False
                DataField = 'PROD_CONTACONTABIL_RECEITA'
                DataSource = dsCadastro
                KeyField = 'PLANOCONT_CODIGO'
                ListField = 'codigo_descricao'
                ListSource = DSPlanoContabil
                ParentCtl3D = False
                TabOrder = 1
                OnClick = DBLCBContaContabilClick
                OnKeyDown = DBLCBFornecedorKeyDown
              end
              object dblContaDevolucao: TDBLookupComboBox
                Left = 422
                Top = 100
                Width = 400
                Height = 22
                Ctl3D = False
                DataField = 'PROD_CONTADEVOLUCAO'
                DataSource = dsCadastro
                KeyField = 'PLANOCONT_CODIGO'
                ListField = 'codigo_descricao'
                ListSource = DSPlanoContabil
                ParentCtl3D = False
                TabOrder = 3
                OnClick = DBLCBContaContabilClick
                OnKeyDown = DBLCBFornecedorKeyDown
              end
              object DBLCBContaContabilCusto: TDBLookupComboBox
                Left = 14
                Top = 100
                Width = 400
                Height = 22
                Ctl3D = False
                DataField = 'PROD_CONTACONTABIL_CUSTO'
                DataSource = dsCadastro
                KeyField = 'PLANOCONT_CODIGO'
                ListField = 'codigo_descricao'
                ListSource = DSPlanoContabil
                ParentCtl3D = False
                TabOrder = 2
                OnClick = DBLCBContaContabilClick
                OnKeyDown = DBLCBFornecedorKeyDown
              end
            end
            object GroupBox3: TGroupBox
              Left = 2
              Top = 8
              Width = 829
              Height = 145
              Caption = '  Fiscal  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 0
              object Label27: TLabel
                Left = 11
                Top = 18
                Width = 110
                Height = 16
                Caption = 'Clas. Fiscal (NCM)'
              end
              object DBEClassfiscal9: TDBEdit
                Left = 11
                Top = 36
                Width = 113
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'PROD_CLASSFISCAL9'
                DataSource = dsCadastro
                MaxLength = 9
                ParentCtl3D = False
                TabOrder = 0
                OnEnter = DBEClassfiscal9Enter
              end
            end
          end
          object TabSheet3: TTabSheet
            Caption = 'Centro de Custo'
            ImageIndex = 7
            object Label15: TLabel
              Left = 2
              Top = 9
              Width = 125
              Height = 16
              Caption = 'Centro de Custo (F-8)'
            end
            object DBLCBCentroCusto: TDBLookupComboBox
              Left = 2
              Top = 27
              Width = 338
              Height = 22
              Ctl3D = False
              DataField = 'CP_CENTROCUSTO'
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = dsCentroCusto
              ParentCtl3D = False
              TabOrder = 0
              OnKeyDown = DBLCBCentroCustoKeyDown
            end
            object GroupBox1: TGroupBox
              Left = 459
              Top = 5
              Width = 367
              Height = 336
              Caption = '  Relacionados  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 3
              object DBGrid1: TDBGrid
                Left = 14
                Top = 24
                Width = 339
                Height = 297
                DataSource = dsProdCentroCusto
                Options = [dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
                TabOrder = 0
                TitleFont.Charset = ANSI_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -13
                TitleFont.Name = 'Arial'
                TitleFont.Style = []
                Columns = <
                  item
                    Expanded = False
                    FieldName = 'CENTRO_CUSTO'
                    Visible = True
                  end>
              end
            end
            object BitBtn1: TBitBtn
              Tag = 1
              Left = 354
              Top = 13
              Width = 100
              Height = 25
              Caption = '&Relacionar'
              TabOrder = 1
              OnClick = BitBtn1Click
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000130B0000130B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                33333333FF33333333FF333993333333300033377F3333333777333993333333
                300033F77FFF3333377739999993333333333777777F3333333F399999933333
                33003777777333333377333993333333330033377F3333333377333993333333
                3333333773333333333F333333333333330033333333F33333773333333C3333
                330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
                993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
                333333333337733333FF3333333C333330003333333733333777333333333333
                3000333333333333377733333333333333333333333333333333}
              NumGlyphs = 2
            end
            object BitBtn2: TBitBtn
              Tag = 1
              Left = 354
              Top = 45
              Width = 100
              Height = 25
              Caption = 'Excl&uir'
              TabOrder = 2
              OnClick = BitBtn2Click
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000120B0000120B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
                3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
                33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
                33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
                333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
                03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
                33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
                0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
                3333333337FFF7F3333333333000003333333333377777333333}
              NumGlyphs = 2
            end
          end
          object TabSheet4: TTabSheet
            Caption = 'Pre'#231'o'
            ImageIndex = 8
            object Label33: TLabel
              Left = 8
              Top = 16
              Width = 62
              Height = 16
              Caption = 'Vr.Compra'
            end
            object Label35: TLabel
              Left = 8
              Top = 56
              Width = 54
              Height = 16
              Caption = 'Vr.Venda'
            end
            object RxDBCalcEdit1: TRxDBCalcEdit
              Left = 8
              Top = 32
              Width = 121
              Height = 21
              DataField = 'PROD_VALORCOMPRA'
              DataSource = dsCadastro
              Ctl3D = False
              DisplayFormat = '#,##0.0000'
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 0
            end
            object RxDBCalcEdit2: TRxDBCalcEdit
              Left = 8
              Top = 72
              Width = 121
              Height = 21
              DataField = 'PROD_VALOR'
              DataSource = dsCadastro
              Ctl3D = False
              DisplayFormat = '#,##0.0000'
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 1
            end
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 464
    Top = 480
  end
  inherited dsCadastro: TDataSource
    Left = 464
    Top = 352
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'Select * from produto')
    Left = 744
    Top = 200
  end
  inherited dspCadastro: TDataSetProvider
    Left = 464
    Top = 416
  end
  inherited cdsCadastro: TClientDataSet
    BeforePost = cdsCadastroBeforePost
    Left = 320
    Top = 416
    object cdsCadastroPROD_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'PROD_CODIGO'
    end
    object cdsCadastroPROD_DESCRICAOENT: TStringField
      DisplayLabel = 'Desc. Entrada'
      FieldName = 'PROD_DESCRICAOENT'
      Size = 80
    end
    object cdsCadastroPROD_DESCRICAOSAI: TStringField
      DisplayLabel = 'Desc. Sa'#237'da'
      FieldName = 'PROD_DESCRICAOSAI'
      Size = 80
    end
    object cdsCadastroPROD_REFERENCIA: TStringField
      DisplayLabel = 'Ref. Fornecedor'
      FieldName = 'PROD_REFERENCIA'
    end
    object cdsCadastroPROD_UNIDSAIDA: TStringField
      DisplayLabel = 'Unidade'
      FieldName = 'PROD_UNIDSAIDA'
      Size = 5
    end
    object cdsCadastroPROD_GRUPOPRODUTO: TIntegerField
      DisplayLabel = 'Grupo'
      FieldName = 'PROD_GRUPOPRODUTO'
    end
    object cdsCadastroPROD_CLASSIFPROD1: TIntegerField
      DisplayLabel = 'Classifica'#231#227'o 1'
      FieldName = 'PROD_CLASSIFPROD1'
    end
    object cdsCadastroPROD_ICMS: TStringField
      FieldName = 'PROD_ICMS'
      Size = 6
    end
    object cdsCadastroPROD_IPI: TStringField
      FieldName = 'PROD_IPI'
      Size = 6
    end
    object cdsCadastroPROD_CONTACONTABIL: TIntegerField
      FieldName = 'PROD_CONTACONTABIL'
    end
    object cdsCadastroPROD_TIPO: TSmallintField
      DisplayLabel = 'Tipo'
      FieldName = 'PROD_TIPO'
    end
    object cdsCadastroPROD_NATUREZA: TSmallintField
      DisplayLabel = 'Natureza'
      FieldName = 'PROD_NATUREZA'
    end
    object cdsCadastroPROD_CLASSFISCAL2: TSmallintField
      FieldName = 'PROD_CLASSFISCAL2'
    end
    object cdsCadastroPROD_CLASSFISCAL9: TIntegerField
      FieldName = 'PROD_CLASSFISCAL9'
    end
    object cdsCadastroPROD_SITUACAOTRIBUTARIA: TSmallintField
      FieldName = 'PROD_SITUACAOTRIBUTARIA'
    end
    object cdsCadastroPROD_VALOR: TFloatField
      DisplayLabel = 'Valor'
      FieldName = 'PROD_VALOR'
    end
    object cdsCadastroPROD_VALORCOMPRA: TFloatField
      DisplayLabel = 'Valor Compra'
      FieldName = 'PROD_VALORCOMPRA'
    end
    object cdsCadastroPROD_SUBS_TRIBUTARIA: TFloatField
      FieldName = 'PROD_SUBS_TRIBUTARIA'
    end
    object cdsCadastroPROD_INCENTIVO_FISCAL: TStringField
      FieldName = 'PROD_INCENTIVO_FISCAL'
      Size = 3
    end
    object cdsCadastroPROD_PESO_BRUTO: TFloatField
      DisplayLabel = 'Peso Bruto'
      FieldName = 'PROD_PESO_BRUTO'
    end
    object cdsCadastroPROD_PESO_LIQUIDO: TFloatField
      DisplayLabel = 'Peso Liquido'
      FieldName = 'PROD_PESO_LIQUIDO'
    end
    object cdsCadastroPROD_ALIQUOTA_ICMS: TFloatField
      FieldName = 'PROD_ALIQUOTA_ICMS'
    end
    object cdsCadastroPROD_ALIQUOTA_IPI: TFloatField
      FieldName = 'PROD_ALIQUOTA_IPI'
    end
    object cdsCadastroPROD_REDUCAO_BASE_ICMS: TFloatField
      FieldName = 'PROD_REDUCAO_BASE_ICMS'
    end
    object cdsCadastroPROD_REDUCAO_BASE_IPI: TFloatField
      FieldName = 'PROD_REDUCAO_BASE_IPI'
    end
    object cdsCadastroPROD_PERC_AGREGACAO_ICMS_SUB: TFloatField
      FieldName = 'PROD_PERC_AGREGACAO_ICMS_SUB'
    end
    object cdsCadastroPROD_PERC_PIS: TFloatField
      FieldName = 'PROD_PERC_PIS'
    end
    object cdsCadastroPROD_CREDITAR_PIS: TIntegerField
      FieldName = 'PROD_CREDITAR_PIS'
    end
    object cdsCadastroPROD_PERC_COFINS: TFloatField
      FieldName = 'PROD_PERC_COFINS'
    end
    object cdsCadastroPROD_CREDITAR_COFINS: TIntegerField
      FieldName = 'PROD_CREDITAR_COFINS'
    end
    object cdsCadastroPROD_ICMS_SUBS: TStringField
      FieldName = 'PROD_ICMS_SUBS'
      Size = 6
    end
    object cdsCadastroPROD_CONTACONTABIL_REC_CUST: TIntegerField
      FieldName = 'PROD_CONTACONTABIL_REC_CUST'
    end
    object cdsCadastroPROD_CONSIDERAR_TOPERACAO_NFSAI: TIntegerField
      FieldName = 'PROD_CONSIDERAR_TOPERACAO_NFSAI'
    end
    object cdsCadastroPROD_CODIGO_APURACAO: TStringField
      FieldName = 'PROD_CODIGO_APURACAO'
      FixedChar = True
      Size = 2
    end
    object cdsCadastroPROD_IDENTI_ESPECIAL: TStringField
      FieldName = 'PROD_IDENTI_ESPECIAL'
      FixedChar = True
      Size = 2
    end
    object cdsCadastroPROD_CODIGO_NBM: TStringField
      FieldName = 'PROD_CODIGO_NBM'
      FixedChar = True
      Size = 8
    end
    object cdsCadastroPROD_PROPIEDADE: TIntegerField
      FieldName = 'PROD_PROPIEDADE'
    end
    object cdsCadastroPROD_COMISSAO_VEND: TFloatField
      FieldName = 'PROD_COMISSAO_VEND'
    end
    object cdsCadastroPROD_CV: TFloatField
      FieldName = 'PROD_CV'
    end
    object cdsCadastroPROD_CONTADEVOLUCAO: TIntegerField
      FieldName = 'PROD_CONTADEVOLUCAO'
    end
    object cdsCadastroPROD_FORNECEDOR_PREF: TIntegerField
      FieldName = 'PROD_FORNECEDOR_PREF'
    end
    object cdsCadastroPROD_DESCRICAO_COMPLEMENTO: TStringField
      FieldName = 'PROD_DESCRICAO_COMPLEMENTO'
      Size = 70
    end
    object cdsCadastroPROD_DESCRICAO_COMPLEMENTO2: TStringField
      FieldName = 'PROD_DESCRICAO_COMPLEMENTO2'
      Size = 70
    end
    object cdsCadastroPROD_DESCRICAO_COMPLEMENTO3: TStringField
      FieldName = 'PROD_DESCRICAO_COMPLEMENTO3'
      Size = 70
    end
    object cdsCadastroPROD_DESCRICAO_COMPLEMENTO4: TStringField
      FieldName = 'PROD_DESCRICAO_COMPLEMENTO4'
      Size = 70
    end
    object cdsCadastroPROD_DESCRICAO_COMPLEMENTO5: TStringField
      FieldName = 'PROD_DESCRICAO_COMPLEMENTO5'
      Size = 70
    end
    object cdsCadastroPROD_TRAVAPEDIDO: TStringField
      FieldName = 'PROD_TRAVAPEDIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_CODIGO_CONFERENCIA: TIntegerField
      FieldName = 'PROD_CODIGO_CONFERENCIA'
    end
    object cdsCadastroPROD_CONTACONTABIL_CUSTO: TIntegerField
      FieldName = 'PROD_CONTACONTABIL_CUSTO'
    end
    object cdsCadastroPROD_CONTACONTABIL_RECEITA: TIntegerField
      FieldName = 'PROD_CONTACONTABIL_RECEITA'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROF_REF_FABRICANTE: TStringField
      DisplayLabel = 'Refer'#234'ncia Fabricante'
      FieldName = 'PROF_REF_FABRICANTE'
    end
    object cdsCadastroPROD_MARCA: TStringField
      FieldName = 'PROD_MARCA'
    end
    object cdsCadastroPROD_FABRICANTE: TIntegerField
      FieldName = 'PROD_FABRICANTE'
    end
    object cdsCadastroPROD_NOVO_RECUPERADO: TStringField
      FieldName = 'PROD_NOVO_RECUPERADO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_LOCALIZACAO: TStringField
      DisplayLabel = 'Localiza'#231#227'o'
      FieldName = 'PROD_LOCALIZACAO'
      Size = 6
    end
    object cdsCadastroPROD_ATIVO: TStringField
      FieldName = 'PROD_ATIVO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_CONTROLE_MANUTENCAO: TStringField
      FieldName = 'PROD_CONTROLE_MANUTENCAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_KIT: TStringField
      FieldName = 'PROD_KIT'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_USO_CONSUMO: TStringField
      FieldName = 'PROD_USO_CONSUMO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_MERCADO_NR: TStringField
      FieldName = 'PROD_MERCADO_NR'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_PERECIVEL: TStringField
      FieldName = 'PROD_PERECIVEL'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_RESUPRIMENTO: TStringField
      FieldName = 'PROD_RESUPRIMENTO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_PPEDIDO: TStringField
      FieldName = 'PROD_PPEDIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_QTD_PPEDIDO: TIntegerField
      FieldName = 'PROD_QTD_PPEDIDO'
    end
    object cdsCadastroPROD_DT_PPEDIDO: TDateTimeField
      FieldName = 'PROD_DT_PPEDIDO'
      DisplayFormat = 'dd/mm/yyyy'
    end
    object cdsCadastroPROD_PRAZO_ENTREGA: TIntegerField
      FieldName = 'PROD_PRAZO_ENTREGA'
    end
    object cdsCadastroPROD_TIPOVENDA: TIntegerField
      FieldName = 'PROD_TIPOVENDA'
    end
    object cdsCadastroPROD_IND_CENTROCUSTO: TStringField
      FieldName = 'PROD_IND_CENTROCUSTO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_CODIGO_ANT: TIntegerField
      DisplayLabel = 'Cod. Anterior'
      FieldName = 'PROD_CODIGO_ANT'
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroPROD_CLASSIFPROD2: TIntegerField
      FieldName = 'PROD_CLASSIFPROD2'
    end
    object cdsCadastroPROD_CLASSIFPROD3: TIntegerField
      FieldName = 'PROD_CLASSIFPROD3'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroPROD_LOCAL: TIntegerField
      FieldName = 'PROD_LOCAL'
    end
    object cdsCadastroPROD_VALOR_ULTIMA_COMPRA: TFloatField
      FieldName = 'PROD_VALOR_ULTIMA_COMPRA'
    end
    object cdsCadastroCHAVE_CLASS: TStringField
      FieldName = 'CHAVE_CLASS'
      Size = 6
    end
    object cdsCadastroPROD_GRUPO_ETIQUETA: TStringField
      FieldName = 'PROD_GRUPO_ETIQUETA'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_ATIVIDADE_ECONOMICA: TIntegerField
      FieldName = 'PROD_ATIVIDADE_ECONOMICA'
    end
    object cdsCadastroPROD_USA_REDUCAO_ICMS: TStringField
      FieldName = 'PROD_USA_REDUCAO_ICMS'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
    object cdsCadastroPROD_CURVAABC: TStringField
      FieldName = 'PROD_CURVAABC'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_SEM_RED_ICMS: TStringField
      FieldName = 'PROD_SEM_RED_ICMS'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_COD_GTIN: TStringField
      FieldName = 'PROD_COD_GTIN'
      Size = 14
    end
    object cdsCadastroPROD_INDIC_AUTOPECAS: TIntegerField
      FieldName = 'PROD_INDIC_AUTOPECAS'
    end
    object cdsCadastroPROD_STATUS_BLOQUEIO: TStringField
      FieldName = 'PROD_STATUS_BLOQUEIO'
      FixedChar = True
      Size = 1
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 776
    Top = 240
  end
  inherited OpenDialog1: TOpenDialog
    Left = 264
    Top = 376
  end
  object DSGrupoProduto: TDataSource
    DataSet = DMGestao.QGrupProduto
    Left = 560
    Top = 416
  end
  object DSFornecedor: TDataSource
    DataSet = DMGestao.QFornecedor
    Left = 560
    Top = 480
  end
  object dsClassProduto: TDataSource
    DataSet = DMGestao.QClassProduto
    Left = 728
    Top = 408
  end
  object QSaldoEstoque: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      
        'Select Sal_Est_QuantidadeEst, Sal_Est_QuantidadeDisp,Sal_Est_Cus' +
        'toReposicao, Sal_Est_CustoMedioUnit,Sal_Est_CustoMedioTotal from' +
        ' SaldoEstoque')
    Left = 736
    Top = 248
  end
  object QSaldoLocal: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      
        'Select Loc_Descricao,Sal_Loc_QuantidadeEst, Sal_Loc_QuantidadeDi' +
        'sp from SaldoLocal inner join Local on Sal_Loc_Local = Loc_Codig' +
        'o')
    Left = 40
    Top = 408
  end
  object DSSaldoEstoque: TDataSource
    DataSet = QSaldoEstoque
    Left = 560
    Top = 352
  end
  object DSSaldoLocal: TDataSource
    DataSet = QSaldoLocal
    Left = 560
    Top = 448
  end
  object DSPlanoContabil: TDataSource
    DataSet = DMFinanceiro.QPlanoContabil
    Left = 528
    Top = 480
  end
  object QProdutoFornecedor: TQuery
    DatabaseName = 'base'
    DataSource = dsCadastro
    SQL.Strings = (
      'SELECT DISTINCT '
      '  FORNECEDOR.FORN_RAZAO,'
      '  FORNECEDOR.FORN_FANTASIA,'
      '  FORNECEDOR.FORN_CPFCNPJ,'
      '  PRODUTOFORNECEDOR.PRODFORN_REFERENCIA,'
      '  PRODUTOFORNECEDOR.PRODFORN_NF,'
      '  PRODUTOFORNECEDOR.PRODFORN_NF_DATA,'
      '  PRODUTOFORNECEDOR.PRODFORN_QTD,'
      '  PRODFORN_VALOR_UNITARIO'
      'FROM'
      '  PRODUTOFORNECEDOR'
      
        '  INNER JOIN FORNECEDOR ON (PRODUTOFORNECEDOR.PRODFORN_FORNECEDO' +
        'R = FORNECEDOR.FORN_CODIGO)'
      'WHERE'
      '  PRODFORN_PRODUTO = :PROD_CODIGO')
    Left = 776
    Top = 240
    ParamData = <
      item
        DataType = ftInteger
        Name = 'PROD_CODIGO'
        ParamType = ptUnknown
        Size = 4
      end>
    object QProdutoFornecedorFORN_RAZAO: TStringField
      FieldName = 'FORN_RAZAO'
      Origin = 'BASE.FORNECEDOR.FORN_RAZAO'
      Size = 60
    end
    object QProdutoFornecedorFORN_FANTASIA: TStringField
      FieldName = 'FORN_FANTASIA'
      Origin = 'BASE.FORNECEDOR.FORN_FANTASIA'
      Size = 60
    end
    object QProdutoFornecedorFORN_CPFCNPJ: TStringField
      FieldName = 'FORN_CPFCNPJ'
      Origin = 'BASE.FORNECEDOR.FORN_CPFCNPJ'
    end
    object QProdutoFornecedorPRODFORN_REFERENCIA: TStringField
      FieldName = 'PRODFORN_REFERENCIA'
      Origin = 'BASE.PRODUTOFORNECEDOR.PRODFORN_REFERENCIA'
    end
    object QProdutoFornecedorPRODFORN_NF: TStringField
      FieldName = 'PRODFORN_NF'
      Origin = 'BASE.PRODUTOFORNECEDOR.PRODFORN_NF'
      Size = 10
    end
    object QProdutoFornecedorPRODFORN_NF_DATA: TDateTimeField
      FieldName = 'PRODFORN_NF_DATA'
      Origin = 'BASE.PRODUTOFORNECEDOR.PRODFORN_NF_DATA'
    end
    object QProdutoFornecedorPRODFORN_QTD: TFloatField
      FieldName = 'PRODFORN_QTD'
      Origin = 'BASE.PRODUTOFORNECEDOR.PRODFORN_QTD'
    end
    object QProdutoFornecedorPRODFORN_VALOR_UNITARIO: TFloatField
      FieldName = 'PRODFORN_VALOR_UNITARIO'
      Origin = 'BASE.PRODUTOFORNECEDOR.PRODFORN_VALOR_UNITARIO'
      DisplayFormat = '#,##0.00'
    end
  end
  object DSProdutoFornecedor: TDataSource
    DataSet = QProdutoFornecedor
    OnDataChange = DSProdutoFornecedorDataChange
    Left = 560
    Top = 384
  end
  object QVerifica: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select *'
      'From ProdutoFornecedor')
    Left = 464
    Top = 192
  end
  object DSCliente: TDataSource
    DataSet = DMGestao.QCliente
    Left = 528
    Top = 448
  end
  object QProdutoCliente: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT '
      '*'
      'FROM'
      '  PRODUTOCLIENTE')
    Left = 792
    Top = 360
  end
  object DSProdutoCliente: TDataSource
    DataSet = QProdutoCliente
    Left = 528
    Top = 384
  end
  object DSLocal: TDataSource
    DataSet = DMGestao.QLocal
    Left = 560
    Top = 512
  end
  object CDSFornecedor: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 72
    Top = 448
  end
  object dsFabricante: TDataSource
    DataSet = DMGestao.QFabricane
    Left = 528
    Top = 416
  end
  object CDSCliente: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 168
    Top = 456
  end
  object dsCentroCusto: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 760
    Top = 408
  end
  object QProdCentroCusto: TQuery
    DatabaseName = 'base'
    DataSource = dsCadastro
    SQL.Strings = (
      'SELECT '
      '  PRODUTO_CENTROCUSTO.PRODCENT_PRODUTO,'
      '  PRODUTO_CENTROCUSTO.PRODCENT_CENTROCUSTO,'
      '  PRODUTO_CENTROCUSTO.CODIGOEMPRESA,'
      '  PRODUTO_CENTROCUSTO.USUARIO_CADASTRO,'
      '  PRODUTO_CENTROCUSTO.USUARIO_AUTERACAO,'
      '  PRODUTO_CENTROCUSTO.USUARIO_EXCLUSAO,'
      '  PRODUTO_CENTROCUSTO.DATA_CADASTRO,'
      '  PRODUTO_CENTROCUSTO.DATA_EXCLUSAO,'
      '  PRODUTO_CENTROCUSTO.DATA_AUTERACAO,'
      '  PRODUTO_CENTROCUSTO.EXCLUIDO'
      'FROM'
      '  PRODUTO_CENTROCUSTO'
      'WHERE'
      '  PRODCENT_PRODUTO = :PROD_CODIGO')
    Left = 216
    Top = 416
    ParamData = <
      item
        DataType = ftInteger
        Name = 'PROD_CODIGO'
        ParamType = ptUnknown
        Size = 4
      end>
  end
  object dspProdCentroCusto: TDataSetProvider
    DataSet = QProdCentroCusto
    Left = 424
    Top = 424
  end
  object cdsProdCentroCusto: TClientDataSet
    Aggregates = <>
    Filter = 'EXCLUIDO <> '#39'S'#39' OR EXCLUIDO IS NULL'
    Filtered = True
    IndexFieldNames = 'PRODCENT_PRODUTO'
    MasterFields = 'PROD_CODIGO'
    MasterSource = dsCadastro
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspProdCentroCusto'
    Left = 400
    Top = 344
    object cdsProdCentroCustoPRODCENT_PRODUTO: TIntegerField
      FieldName = 'PRODCENT_PRODUTO'
    end
    object cdsProdCentroCustoPRODCENT_CENTROCUSTO: TIntegerField
      FieldName = 'PRODCENT_CENTROCUSTO'
    end
    object cdsProdCentroCustoCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsProdCentroCustoUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsProdCentroCustoUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsProdCentroCustoUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsProdCentroCustoDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsProdCentroCustoDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsProdCentroCustoDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsProdCentroCustoEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsProdCentroCustoCENTRO_CUSTO: TStringField
      DisplayLabel = 'Centro de Custo'
      DisplayWidth = 46
      FieldKind = fkLookup
      FieldName = 'CENTRO_CUSTO'
      LookupDataSet = DMFinanceiro.QCentro
      LookupKeyFields = 'CODIGO'
      LookupResultField = 'DESCRICAO'
      KeyFields = 'PRODCENT_CENTROCUSTO'
      Size = 50
      Lookup = True
    end
  end
  object dsProdCentroCusto: TDataSource
    DataSet = cdsProdCentroCusto
    Left = 128
    Top = 416
  end
  object dsAtividadeEconomica: TDataSource
    DataSet = DMGestao.QAtividadeEconomica
    Left = 696
    Top = 408
  end
end
